﻿Public Class IhtiyatSandigiDosya
	Inherits Process

	Public Overrides Sub GenericEvent(ByVal e As ProcessEventArgs)
		Select Case e.EventType
			Case EventType.Initialize
				Text = "İhtiyat Sandığı Dosya Oluşturma"
				InitialHelp = "Tarih aralığını girin."
				AddField("@tarih1:donem", "", Today.Year & "01")
				AddField("tarih2:donem", "nl", Today.AddMonths(-1).ToString("yyyyMM"))
				StartBody()
				AddList()
				List.AddColumns("aciklama(;l;100%)")
			Case EventType.ValidateForm
				Dim Tarih1 As Date = Mid(Input("tarih1"), 1, 4) & "/" & Mid(Input("tarih1"), 5, 2) & "/01"
				Dim Tarih2 As Date = Mid(Input("tarih2"), 1, 4) & "/" & Mid(Input("tarih2"), 5, 2) & "/01"
				Dim Tarih As Date = Tarih1
				Window.Connect(99)
				Do
					List.AddRow(Tarih & " tarihi oluşturuluyor...")
					Rs = Sistem.IhtiyatSandigiOku(Remote, Tarih)
					FileSystem.SaveContentsToFile(Rs.ToString("text"), FileSystem.DesktopPath & "\ihtiyat\" & Tarih.ToString("yyyyMM") & ".txt")
					Tarih = Tarih.AddMonths(1)
					If Tarih >= Tarih2 Then Exit Do
				Loop
				List.AddRow("Dosyalar oluşturuldu.")
				e.Result = True
		End Select
	End Sub

End Class
